home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Online / YamHTMLyam19b / YamHTML.del < prev    next >
Encoding:
Text File  |  2004-01-31  |  673 b   |  25 lines
  1. /* YamHTML.yam. Deletes YHTMR in Your temporary dir.
  2. */
  3. TempDir = "T:"  ;/*<-Temporary directory. (":" or "/" must be included)*/
  4. ;
  5. IF EXISTS(TempDir'YHTMR/') THEN DO
  6.   awaddr=awebaddr()
  7.   IF awaddr ~= '0' THEN DO
  8.    ADDRESS (awaddr); 'FLUSHCACHE IMAGES ALL'
  9.   END
  10.   IF SHOW('P','IBROWSE') THEN DO
  11.    ADDRESS IBROWSE; 'FLUSH ALLIMAGES'
  12.   END
  13.   ADDRESS COMMAND
  14.  'C:delete >NIL: all force quiet 'TempDir'YHTMR'
  15. CALL SETCLIP('yhef'); CALL SETCLIP('wmde'); CALL SETCLIP('askf')
  16. CALL SETCLIP('rreme'); CALL SETCLIP('getnv'); CALL SETCLIP('hname')
  17. END
  18. EXIT
  19. awebaddr:
  20. ports = SHOW('P')
  21. PARSE VAR ports dummy 'AWEB.' portnr .
  22. IF portnr = '' THEN RETURN '0'
  23. RETURN 'AWEB.'||portnr
  24.  
  25.